m=5                 %Delay
g=0.91              %Ganancia
w=0:0.01:2*pi;      %Frecuencias a graficar
H=g*((exp(j*w)).^(-m))./(1-g*(exp(j*w)).^(-m));
plot(w,abs(H)); 